perm filename LIBMAC.NDF[PAS,SYS]1 blob
sn#374941 filedate 1978-09-07 generic text, type T, neo UTF8
1) U:LIBMAC.OLD[PAS,EJG] and 2) U:LIBMAC.MAC[PAS,EJG] 8-17-78 18:57 pages 24,24
**** File 1) U:LIBMAC.OLD[PAS,EJG], Page 24 line 106
1) XCT FILLKP(REG) ;LOOKUP
1) JRST SETEOF ;ERROR ON LOOKUP OR OPEN
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 24 line 106
2) PUSHJ TOPP ,RESLKP ;GO LOOKUP
2) JRST SETEOF ;ERROR ON LOOKUP OR OPEN
***************
**** File 1) U:LIBMAC.OLD[PAS,EJG], Page 24 line 114
1) ;
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 24 line 115
2) RESLKP: PUSH TOPP ,FILPPN(REG) ;SAVE PPN CLOBBERED BY LOOKUP
2) XCT FILLKP(REG) ;LOOKUP
2) CAIA
2) AOS -1(TOPP)
2) POP TOPP ,FILPPN(REG) ;RESTORE PPN
2) POPJ TOPP ,
2) ;
***************
**** File 1) U:LIBMAC.OLD[PAS,EJG], Page 24 line 124
1) XCT FILENT(REG) ;ENTER
1) JRST REWERR ;ERROR ON ENTER
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 24 line 132
2) PUSHJ TOPP ,REWENT ;GO ENTER
2) JRST REWERR ;ERROR ON ENTER
***************
**** File 1) U:LIBMAC.OLD[PAS,EJG], Page 24 line 133
1) ;
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 24 line 142
2) REWENT: PUSH TOPP ,FILPPN(REG) ;SAVE PPN CLOBBERED BY ENTER
2) XCT FILENT(REG) ;ENTER
2) CAIA
2) AOS -1(TOPP)
2) POP TOPP ,FILPPN(REG) ;RESTORE PPN
2) POPJ TOPP ,
2) ;
***************
**** File 1) U:LIBMAC.OLD[PAS,EJG], Page 24 line 200
1) MOVEM REG3 ,FILPPN(REG) ;PROJECT-PROGR. NUMBER
1) HLLZS AC1 ,FILEXT(REG) ;TO GET CORRECT CRE-DATE
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 24 line 216
2) HLLZS AC1 ,FILEXT(REG) ;TO GET CORRECT CRE-DATE
***************
**** File 1) U:LIBMAC.OLD[PAS,EJG], Page 24 line 204
1) HRRI AC1 ,FILNAM(REG) ;WHERE TO DEPOSIT IT
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 24 line 219
2) MOVEM REG3 ,FILPPN(REG) ;PROJECT-PROGR. NUMBER
2) HRRI AC1 ,FILNAM(REG) ;WHERE TO DEPOSIT IT
***************